home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga GIGA Graphic
/
Amiga GIGA Graphic CDs 1-4 (1994)(Geuther)(Disc 3 of 4)[!].iso
/
rush
/
scripts
/
tolower.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1993-07-11
|
394b
|
23 lines
/*
** $VER: tolower.rexx 37.1 (1.5.93)
**
** Rename a file to lowercase.
**
** Written by Douglas Keller
*/
options results
address command
parse arg file
if file == "" then do
say "Usage: tolower <filename>"
exit 10
end
file= strip(file,b)
file= translate(file, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
address command 'rename quiet from ' || file || ' to ' || file